R/auxilliary functions.R

In fintzij/BDAepimodel: Fit Stochastic Epidemic Models in R via Bayesian Data Augmentation

#' logit function
#' 
#' logit(x) = log(x/(1-x))
#'
#' @param x 
#'
#' @return logit of x
#' @export
#'
logit <- function(x) {
          log(x/(1-x))
}

#' expit function
#' 
#' expit(x) = 1/(1+exp(x))
#'
#' @param x 
#'
#' @return expit of x
#' @export
#' 
expit <- function(x) {
          1/(1 + exp(-x))
}

#' Normalize a vector or matrix. 
#'
#' x <- x/sum(x)
#'
#' @param x 
#'
#' @return normalized object
#' @export

normalize <- function(x) {
          x/sum(x)
}